home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / EXPORT / MISC / MAPBAR.AML < prev    next >
Text File  |  1999-02-18  |  26KB  |  899 lines
  1. /* mapbar.aml 12/16/93 W R Beeman
  2. /* This aml draws a scalebar for any specified scale.  There are eight parts to
  3. /* the aml - each referring to a specific template for a range of scale
  4. /* values.  The templates were provided by USGS Central Technical Reports.
  5. /* This aml uses variables to assign the various values for the boxes and
  6. /* lines that constitute a scalebar.  As a consequence, it modifies the
  7. /* appropriate scalebar for any scale.  It is designed to be called from
  8. /* arcplot by specifying the x and y coordinates and the mapscale.  The
  9. /* x and y coordinates will specify the location of the left edge of the
  10. /* "Miles" scalebar (the middle scalebar).  The mapscale should be specified
  11. /* as a single integer.  eg: mapbar 1 2 100000 will construct a scalebar
  12. /* for a 1:100000 coverage with its left edge 1 inch in, and centered at
  13. /* approximately 2 inches up.
  14. /* Because of the possibility that someone could have an inappropriate line
  15. /* width specified when the program is called, the lineset plotter.lin
  16. /* and linesymbol 1 are specified at the beginning of the program.  Those
  17. /* program lines can be removed if a different lineset, weight or color is
  18. /* desired.
  19. /* This program has been tested and has worked to perform the specified tasks.
  20. /* However, no warranty is expressed or implied as to its performance on any
  21. /* other system.  It was designed for ARC/INFO version 6.1.1.
  22. /* wbeeman@greenwood.cr.usgs.gov
  23.  
  24. &args varx vary msc 
  25. lineset plotter.lin
  26. linesymbol 1
  27. &sv in1 := 63360 / %msc%
  28. &if %msc% >= 1000000 and %msc% < 10000000 &then
  29. &do
  30. &sv msca := [substr %msc% 1 1]
  31. &sv mscb := [substr %msc% 2 3]
  32. &sv mscc := [substr %msc% 5 3]
  33. &sv msc2 := %msca% %mscb% %mscc%
  34. &end
  35. &if %msc% >= 100000 and %msc% < 1000000 &then
  36. &do
  37. &sv msca := [substr %msc% 1 3]
  38. &sv mscb := [substr %msc% 4 3]
  39. &sv msc2 := %msca% %mscb%
  40. &end
  41. &if %msc% >= 10000 and %msc% < 100000 &then
  42. &do
  43. &sv msca := [substr %msc% 1 2]
  44. &sv mscb := [substr %msc% 3 3]
  45. &sv msc2 := %msca% %mscb%
  46. &end
  47. &if %msc% < 10000 or %msc% > 10000000 &then
  48. &do
  49. &sv msc2 := %msc%
  50. &end
  51. &sv vary2 := %vary% + .05
  52. &sv vary3 := %vary% + .025
  53. &sv vary4 := %vary% + .07
  54. &sv vary5 := %vary% + .42
  55. &sv vary6 := %vary% - .33
  56. &sv vary7 := %vary% - .40
  57. &sv vary8 := %vary% - .35
  58. &sv vary9 := %vary% - .375
  59. &if %msc% >= 150000 and %msc% <= 350000 &then
  60. &do
  61. pensize .005
  62. &sv varx1 := %varx% + %in1%
  63. &sv varx2 := %varx1% + %in1%
  64. &sv varx3 := %varx2% + %in1%
  65. &sv varx4 := %varx3% + %in1%
  66. &sv varx5 := %varx4% + %in1%
  67. &sv varx6 := %varx5% + 5 * %in1%
  68. &sv varx7 := %varx6% + 5 * %in1%
  69. &sv varx8 := %varx7% + 5 * %in1%
  70. &sv varx9 := %varx% - .02
  71. &sv varx10 := %varx5% - .02
  72. &sv varx11 := %varx6% - .02
  73. &sv varx12 := %varx7% - .04
  74. &sv varx13 := %varx8% - .04
  75. &sv varx14 := %varx6% - .40
  76. box %varx% %vary% %varx1% %vary2%
  77. box %varx1% %vary% %varx2% %vary2%
  78. box %varx2% %vary% %varx3% %vary2%
  79. box %varx3% %vary% %varx4% %vary2%
  80. box %varx4% %vary% %varx5% %vary2%
  81. box %varx5% %vary% %varx6% %vary2%
  82. box %varx6% %vary% %varx7% %vary2%
  83. box %varx7% %vary% %varx8% %vary2%
  84. pensize .010
  85. line %varx% %vary3% %varx1% %vary3%
  86. line %varx2% %vary3% %varx3% %vary3%
  87. line %varx4% %vary3% %varx5% %vary3%
  88. line %varx6% %vary3% %varx7% %vary3%
  89. textspacing 1.2
  90. textquality proportional
  91. textsize .1 .08
  92. textfont 94021
  93. move %varx9% %vary4%
  94. text '5'
  95. move %varx10% %vary4%
  96. text '0'
  97. move %varx11% %vary4%
  98. text '5'
  99. move %varx12% %vary4%
  100. text '10'
  101. move %varx13% %vary4%
  102. text '15 MILES'
  103. textsize .125 .1
  104. move %varx14% %vary5%
  105. text 'SCALE 1: '
  106. text [quote %msc2%]
  107. &sv varx15 := 2.23286 * %in1%
  108. &sv mtr1 := .62137119 * %in1%
  109. &sv varx16 := %varx% + %varx15%
  110. &sv varx17 := %varx16% + %mtr1%
  111. &sv varx18 := %varx17% + %mtr1%
  112. &sv varx19 := %varx18% + %mtr1%
  113. &sv varx20 := %varx19% + %mtr1%
  114. &sv varx21 := %varx20% + %mtr1%
  115. &sv varx22 := %varx21% + 5 * %mtr1%
  116. &sv varx23 := %varx22% + 5 * %mtr1%
  117. &sv varx24 := %varx23% + 5 * %mtr1%
  118. &sv varx25 := %varx24% + 5 * %mtr1%
  119. &sv varx26 := %varx16% - .02
  120. &sv varx27 := %varx21% - .02
  121. &sv varx28 := %varx22% - .02
  122. &sv varx29 := %varx23% - .04
  123. &sv varx30 := %varx24% - .04
  124. &sv varx31 := %varx25% - .04
  125. pensize .005
  126. box %varx16% %vary7% %varx17% %vary8%
  127. box %varx17% %vary7% %varx18% %vary8%
  128. box %varx18% %vary7% %varx19% %vary8%
  129. box %varx19% %vary7% %varx20% %vary8%
  130. box %varx20% %vary7% %varx21% %vary8%
  131. box %varx21% %vary7% %varx22% %vary8%
  132. box %varx22% %vary7% %varx23% %vary8%
  133. box %varx23% %vary7% %varx24% %vary8%
  134. box %varx24% %vary7% %varx25% %vary8%
  135. pensize .010
  136. line %varx16% %vary9% %varx17% %vary9%
  137. line %varx18% %vary9% %varx19% %vary9%
  138. line %varx20% %vary9% %varx21% %vary9%
  139. line %varx22% %vary9% %varx23% %vary9%
  140. line %varx24% %vary9% %varx25% %vary9%
  141. textsize .1 .08
  142. move %varx26% %vary6%
  143. text '5'
  144. move %varx27% %vary6%
  145. text '0'
  146. move %varx28% %vary6%
  147. text '5'
  148. move %varx29% %vary6%
  149. text '10'
  150. move %varx30% %vary6%
  151. text '15'
  152. move %varx31% %vary6%
  153. text '20 KILOMETERS'
  154. &end
  155. /* part2 mapbar.aml 12/08/93  wbeeman 
  156. &if %msc% >= 80000 and %msc% < 150000 &then
  157. &do
  158. pensize .005
  159. &sv varx1 := %varx% + %in1%
  160. &sv varx2 := %varx1% + %in1%
  161. &sv varx3 := %varx2% + %in1%
  162. &sv varx4 := %varx3% + %in1%
  163. &sv varx5 := %varx4% + %in1%
  164. &sv varx6 := %varx5% + 5 * %in1%
  165. &sv varx9 := %varx% - .02
  166. &sv varx10 := %varx5% - .02
  167. &sv varx11 := %varx6% - .02
  168. box %varx% %vary% %varx1% %vary2%
  169. box %varx1% %vary% %varx2% %vary2%
  170. box %varx2% %vary% %varx3% %vary2%
  171. box %varx3% %vary% %varx4% %vary2%
  172. box %varx4% %vary% %varx5% %vary2%
  173. box %varx5% %vary% %varx6% %vary2%
  174. pensize .010
  175. line %varx% %vary3% %varx1% %vary3%
  176. line %varx2% %vary3% %varx3% %vary3%
  177. line %varx4% %vary3% %varx5% %vary3%
  178. textspacing 1.2
  179. textquality proportional
  180. textsize .1 .08
  181. textfont 94021
  182. move %varx9% %vary4%
  183. text '5'
  184. move %varx10% %vary4%
  185. text '0'
  186. move %varx11% %vary4%
  187. text '5 MILES'
  188. textsize .125 .1
  189. &sv varx14 := %varx5% - .4
  190. move %varx14% %vary5%
  191. text 'SCALE 1: '
  192. text [quote %msc2%]
  193. &sv varx15 := .33971608 * %in1%
  194. &sv mtr1 := .62137119 * %in1%
  195. &sv varx16 := %varx% + %varx15%
  196. &sv varx17 := %varx16% + %mtr1%
  197. &sv varx18 := %varx17% + %mtr1%
  198. &sv varx19 := %varx18% + %mtr1%
  199. &sv varx20 := %varx19% + %mtr1%
  200. &sv varx21 := %varx20% + %mtr1%
  201. &sv varx22 := %varx21% + 5 * %mtr1%
  202. &sv varx23 := %varx22% + 5 * %mtr1%
  203. &sv varx26 := %varx16% - .02
  204. &sv varx27 := %varx21% - .02
  205. &sv varx28 := %varx22% - .02
  206. &sv varx29 := %varx23% - .04
  207. pensize .005
  208. box %varx16% %vary7% %varx17% %vary8%
  209. box %varx17% %vary7% %varx18% %vary8%
  210. box %varx18% %vary7% %varx19% %vary8%
  211. box %varx19% %vary7% %varx20% %vary8%
  212. box %varx20% %vary7% %varx21% %vary8%
  213. box %varx21% %vary7% %varx22% %vary8%
  214. box %varx22% %vary7% %varx23% %vary8%
  215. pensize .010
  216. line %varx16% %vary9% %varx17% %vary9%
  217. line %varx18% %vary9% %varx19% %vary9%
  218. line %varx20% %vary9% %varx21% %vary9%
  219. line %varx22% %vary9% %varx23% %vary9%
  220. textsize .1 .08
  221. move %varx26% %vary6%
  222. text '5'
  223. move %varx27% %vary6%
  224. text '0'
  225. move %varx28% %vary6%
  226. text '5'
  227. move %varx29% %vary6%
  228. text '10 KILOMETERS'
  229. &end
  230. /* Part 3  mapbar.aml 12/08/93 W R Beeman
  231. &if %msc% < 40000 &then
  232. &do
  233. &sv in8 := .1 * %in1%
  234. pensize .005
  235. &sv varx1 := %varx% + %in8%
  236. &sv varx2 := %varx1% + %in8%
  237. &sv varx3 := %varx2% + %in8%
  238. &sv varx4 := %varx3% + %in8%
  239. &sv varx5 := %varx4% + %in8%
  240. &sv varx6 := %varx5% + %in8%
  241. &sv varx7 := %varx6% + %in8%
  242. &sv varx8 := %varx7% + %in8%
  243. &sv varx8a := %varx8% + %in8%
  244. &sv varx8b := %varx8a% + %in8%
  245. &sv varx8c := %varx8b% + %in1%
  246. &sv varx9 := %varx% - .02
  247. &sv varx10 := %varx5% - .04
  248. &sv varx11 := %varx8b% - .02
  249. &sv varx12 := %varx8c% - .02
  250. &sv varx14a := %varx8c% + %varx%
  251. &sv varx14b := %varx14a% / 2
  252. &sv varx14 := %varx14b% - .4
  253. box %varx% %vary% %varx1% %vary2%
  254. box %varx1% %vary% %varx2% %vary2%
  255. box %varx2% %vary% %varx3% %vary2%
  256. box %varx3% %vary% %varx4% %vary2%
  257. box %varx4% %vary% %varx5% %vary2%
  258. box %varx5% %vary% %varx6% %vary2%
  259. box %varx6% %vary% %varx7% %vary2%
  260. box %varx7% %vary% %varx8% %vary2%
  261. box %varx8% %vary% %varx8a% %vary2%
  262. box %varx8a% %vary% %varx8b% %vary2%
  263. box %varx8b% %vary% %varx8c% %vary2%
  264. pensize .010
  265. line %varx% %vary3% %varx1% %vary3%
  266. line %varx2% %vary3% %varx3% %vary3%
  267. line %varx4% %vary3% %varx5% %vary3%
  268. line %varx6% %vary3% %varx7% %vary3%
  269. line %varx8% %vary3% %varx8a% %vary3%
  270. line %varx8b% %vary3% %varx8c% %vary3%
  271. textspacing 1.2
  272. textquality proportional
  273. textsize .1 .08
  274. textfont 94021
  275. move %varx9% %vary4%
  276. text '1'
  277. move %varx10% %vary4%
  278. text '.5'
  279. move %varx11% %vary4%
  280. text '0'
  281. move %varx12% %vary4%
  282. text '1 MILE'
  283. textsize .125 .1
  284. move %varx14% %vary5%
  285. text 'SCALE 1: '
  286. text [quote %msc2%]
  287. &sv varx15 := .37862881 * %in1%
  288. &sv mtr1 := .62137119 * %in1%
  289. &sv mtr2 := .1 * %mtr1%
  290. &sv varx16 := %varx% + %varx15%
  291. &sv varx17 := %varx16% + %mtr2%
  292. &sv varx18 := %varx17% + %mtr2%
  293. &sv varx19 := %varx18% + %mtr2%
  294. &sv varx20 := %varx19% + %mtr2%
  295. &sv varx21 := %varx20% + %mtr2%
  296. &sv varx22 := %varx21% + %mtr2%
  297. &sv varx23 := %varx22% + %mtr2%
  298. &sv varx24 := %varx23% + %mtr2%
  299. &sv varx25 := %varx24% + %mtr2%
  300. &sv varx25a := %varx25% + %mtr2%
  301. &sv varx25b := %varx25a% + %mtr1%
  302. &sv varx26 := %varx16% - .02
  303. &sv varx27 := %varx21% - .04
  304. &sv varx28 := %varx25a% - .02
  305. &sv varx29 := %varx25b% - .02
  306. pensize .005
  307. box %varx16% %vary7% %varx17% %vary8%
  308. box %varx17% %vary7% %varx18% %vary8%
  309. box %varx18% %vary7% %varx19% %vary8%
  310. box %varx19% %vary7% %varx20% %vary8%
  311. box %varx20% %vary7% %varx21% %vary8%
  312. box %varx21% %vary7% %varx22% %vary8%
  313. box %varx22% %vary7% %varx23% %vary8%
  314. box %varx23% %vary7% %varx24% %vary8%
  315. box %varx24% %vary7% %varx25% %vary8%
  316. box %varx25% %vary7% %varx25a% %vary8%
  317. box %varx25a% %vary7% %varx25b% %vary8%
  318. pensize .010
  319. line %varx16% %vary9% %varx17% %vary9%
  320. line %varx18% %vary9% %varx19% %vary9%
  321. line %varx20% %vary9% %varx21% %vary9%
  322. line %varx22% %vary9% %varx23% %vary9%
  323. line %varx24% %vary9% %varx25% %vary9%
  324. line %varx25a% %vary9% %varx25b% %vary9%
  325. line %varx24% %vary9% %varx25b% %vary9%
  326. textsize .1 .08
  327. move %varx26% %vary6%
  328. text '1'
  329. move %varx27% %vary6%
  330. text '.5'
  331. move %varx28% %vary6%
  332. text '0'
  333. move %varx29% %vary6%
  334. text '1 KILOMETER'
  335. &end
  336. /* Part 4 mapbar.aml 12/08/93 W R Beeman
  337. &if %msc% > 350000 and %msc% <= 750000 &then
  338. &do
  339. &sv in2 := 2 * %in1%
  340. pensize .005
  341. &sv varx1 := %varx% + %in2%
  342. &sv varx2 := %varx1% + %in2%
  343. &sv varx3 := %varx2% + %in2%
  344. &sv varx4 := %varx3% + %in2%
  345. &sv varx5 := %varx4% + %in2%
  346. &sv varx6 := %varx5% + 5 * %in2%
  347. &sv varx7 := %varx6% + 5 * %in2%
  348. &sv varx8 := %varx7% + 5 * %in2%
  349. &sv varx8a := %varx8% + 5 * %in2%
  350. &sv varx8b := %varx8a% + 5 * %in2%
  351. &sv varx9 := %varx% - .04
  352. &sv varx10 := %varx5% - .02
  353. &sv varx11 := %varx6% - .04
  354. &sv varx12 := %varx7% - .04
  355. &sv varx13 := %varx8% - .04
  356. &sv varx13a := %varx8a% - .04
  357. &sv varx13b := %varx8b% - .04
  358. &sv varx14a := %varx8b% + %varx%
  359. &sv varx14b := %varx14a% / 2
  360. &sv varx14 := %varx14b% - .4
  361. box %varx% %vary% %varx1% %vary2%
  362. box %varx1% %vary% %varx2% %vary2%
  363. box %varx2% %vary% %varx3% %vary2%
  364. box %varx3% %vary% %varx4% %vary2%
  365. box %varx4% %vary% %varx5% %vary2%
  366. box %varx5% %vary% %varx6% %vary2%
  367. box %varx6% %vary% %varx7% %vary2%
  368. box %varx7% %vary% %varx8% %vary2%
  369. box %varx8% %vary% %varx8a% %vary2%
  370. box %varx8a% %vary% %varx8b% %vary2%
  371. pensize .010
  372. line %varx% %vary3% %varx1% %vary3%
  373. line %varx2% %vary3% %varx3% %vary3%
  374. line %varx4% %vary3% %varx5% %vary3%
  375. line %varx6% %vary3% %varx7% %vary3%
  376. line %varx8% %vary3% %varx8a% %vary3%
  377. textspacing 1.2
  378. textquality proportional
  379. textsize .1 .08
  380. textfont 94021
  381. move %varx9% %vary4%
  382. text '10'
  383. move %varx10% %vary4%
  384. text '0'
  385. move %varx11% %vary4%
  386. text '10'
  387. move %varx12% %vary4%
  388. text '20'
  389. move %varx13% %vary4%
  390. text '30'
  391. move %varx13a% %vary4%
  392. text '40'
  393. move %varx13b% %vary4%
  394. text '50 MILES'
  395. textsize .125 .1
  396. move %varx14% %vary5%
  397. text 'SCALE 1: '
  398. text [quote %msc2%]
  399. &sv varx15 := 11.358864 * %in1%
  400. &sv mtr1 := .62137119 * %in1%
  401. &sv mtr2 := 2 * %mtr1%
  402. &sv varx16 := %varx% + %varx15%
  403. &sv varx17 := %varx16% + %mtr2%
  404. &sv varx18 := %varx17% + %mtr2%
  405. &sv varx19 := %varx18% + %mtr2%
  406. &sv varx20 := %varx19% + %mtr2%
  407. &sv varx21 := %varx20% + %mtr2%
  408. &sv varx22 := %varx21% + 5 * %mtr2%
  409. &sv varx23 := %varx22% + 5 * %mtr2%
  410. &sv varx24 := %varx23% + 5 * %mtr2%
  411. &sv varx25 := %varx24% + 5 * %mtr2%
  412. &sv varx25a := %varx25% + 5 * %mtr2%
  413. &sv varx26 := %varx16% - .04
  414. &sv varx27 := %varx21% - .02
  415. &sv varx28 := %varx22% - .04
  416. &sv varx29 := %varx23% - .04
  417. &sv varx30 := %varx24% - .04
  418. &sv varx31 := %varx25% - .04
  419. &sv varx31a := %varx25a% - .04
  420. pensize .005
  421. box %varx16% %vary7% %varx17% %vary8%
  422. box %varx17% %vary7% %varx18% %vary8%
  423. box %varx18% %vary7% %varx19% %vary8%
  424. box %varx19% %vary7% %varx20% %vary8%
  425. box %varx20% %vary7% %varx21% %vary8%
  426. box %varx21% %vary7% %varx22% %vary8%
  427. box %varx22% %vary7% %varx23% %vary8%
  428. box %varx23% %vary7% %varx24% %vary8%
  429. box %varx24% %vary7% %varx25% %vary8%
  430. box %varx25% %vary7% %varx25a% %vary8%
  431. pensize .010
  432. line %varx16% %vary9% %varx17% %vary9%
  433. line %varx18% %vary9% %varx19% %vary9%
  434. line %varx20% %vary9% %varx21% %vary9%
  435. line %varx22% %vary9% %varx23% %vary9%
  436. line %varx24% %vary9% %varx25% %vary9%
  437. textsize .1 .08
  438. move %varx26% %vary6%
  439. text '10'
  440. move %varx27% %vary6%
  441. text '0'
  442. move %varx28% %vary6%
  443. text '10'
  444. move %varx29% %vary6%
  445. text '20'
  446. move %varx30% %vary6%
  447. text '30'
  448. move %varx31% %vary6%
  449. text '40'
  450. move %varx31a% %vary6%
  451. text '50 KILOMETERS'
  452. &end
  453. /* Part 5 mapbar.aml 12/08/93 W R Beeman
  454. &if %msc% > 750000 and %msc% <= 2000000 &then
  455. &do
  456. &sv in2 := 5 * %in1%
  457. pensize .005
  458. &sv varx1 := %varx% + %in2%
  459. &sv varx2 := %varx1% + %in2%
  460. &sv varx3 := %varx2% + %in2%
  461. &sv varx4 := %varx3% + %in2%
  462. &sv varx5 := %varx4% + %in2%
  463. &sv varx6 := %varx5% + 5 * %in2%
  464. &sv varx7 := %varx6% + 5 * %in2%
  465. &sv varx9 := %varx% - .04
  466. &sv varx10 := %varx5% - .02
  467. &sv varx11 := %varx6% - .04
  468. &sv varx12 := %varx7% - .04
  469. &sv varx14a := %varx7% + %varx%
  470. &sv varx14b := %varx14a% / 2
  471. &sv varx14 := %varx14b% - .4
  472. box %varx% %vary% %varx1% %vary2%
  473. box %varx1% %vary% %varx2% %vary2%
  474. box %varx2% %vary% %varx3% %vary2%
  475. box %varx3% %vary% %varx4% %vary2%
  476. box %varx4% %vary% %varx5% %vary2%
  477. box %varx5% %vary% %varx6% %vary2%
  478. box %varx6% %vary% %varx7% %vary2%
  479. pensize .010
  480. line %varx% %vary3% %varx1% %vary3%
  481. line %varx2% %vary3% %varx3% %vary3%
  482. line %varx4% %vary3% %varx5% %vary3%
  483. line %varx6% %vary3% %varx7% %vary3%
  484. textspacing 1.2
  485. textquality proportional
  486. textsize .1 .08
  487. textfont 94021
  488. move %varx9% %vary4%
  489. text '25'
  490. move %varx10% %vary4%
  491. text '0'
  492. move %varx11% %vary4%
  493. text '25'
  494. move %varx12% %vary4%
  495. text '50 MILES'
  496. textsize .125 .1
  497. move %varx14% %vary5%
  498. text 'SCALE 1: '
  499. text [quote %msc2%]
  500. &sv varx15 := 14.19858 * %in1%
  501. &sv mtr1 := .62137119 * %in1%
  502. &sv mtr2 := 5 * %mtr1%
  503. &sv varx16 := %varx% + %varx15%
  504. &sv varx17 := %varx16% + %mtr2%
  505. &sv varx18 := %varx17% + %mtr2%
  506. &sv varx19 := %varx18% + %mtr2%
  507. &sv varx20 := %varx19% + %mtr2%
  508. &sv varx21 := %varx20% + %mtr2%
  509. &sv varx22 := %varx21% + 5 * %mtr2%
  510. &sv varx23 := %varx22% + 5 * %mtr2%
  511. &sv varx26 := %varx16% - .04
  512. &sv varx27 := %varx21% - .02
  513. &sv varx28 := %varx22% - .04
  514. &sv varx29 := %varx23% - .04
  515. pensize .005
  516. box %varx16% %vary7% %varx17% %vary8%
  517. box %varx17% %vary7% %varx18% %vary8%
  518. box %varx18% %vary7% %varx19% %vary8%
  519. box %varx19% %vary7% %varx20% %vary8%
  520. box %varx20% %vary7% %varx21% %vary8%
  521. box %varx21% %vary7% %varx22% %vary8%
  522. box %varx22% %vary7% %varx23% %vary8%
  523. pensize .010
  524. line %varx16% %vary9% %varx17% %vary9%
  525. line %varx18% %vary9% %varx19% %vary9%
  526. line %varx20% %vary9% %varx21% %vary9%
  527. line %varx22% %vary9% %varx23% %vary9%
  528. textsize .1 .08
  529. move %varx26% %vary6%
  530. text '25'
  531. move %varx27% %vary6%
  532. text '0'
  533. move %varx28% %vary6%
  534. text '25'
  535. move %varx29% %vary6%
  536. text '50 KILOMETERS'
  537. &end
  538. /* Part 6 mapbar.aml 12/08/93 W R Beeman
  539. &if %msc% > 2000000 and %msc% <= 4000000 &then
  540. &do
  541. &sv in2 := 10 * %in1%
  542. pensize .005
  543. &sv varx1 := %varx% + %in2%
  544. &sv varx2 := %varx1% + %in2%
  545. &sv varx3 := %varx2% + %in2%
  546. &sv varx4 := %varx3% + %in2%
  547. &sv varx5 := %varx4% + %in2%
  548. &sv varx6 := %varx5% + 5 * %in2%
  549. &sv varx7 := %varx6% + 5 * %in2%
  550. &sv varx8 := %varx7% + 5 * %in2%
  551. &sv varx8a := %varx8% + 5 * %in2%
  552. &sv varx8b := %varx8a% + 5 * %in2%
  553. &sv varx9 := %varx% - .04
  554. &sv varx10 := %varx5% - .02
  555. &sv varx11 := %varx6% - .04
  556. &sv varx12 := %varx7% - .06
  557. &sv varx13 := %varx8% - .06
  558. &sv varx13a := %varx8a% - .06
  559. &sv varx13b := %varx8b% - .06
  560. &sv varx14a := %varx8b% + %varx%
  561. &sv varx14b := %varx14a% / 2
  562. &sv varx14 := %varx14b% - .4
  563. box %varx% %vary% %varx1% %vary2%
  564. box %varx1% %vary% %varx2% %vary2%
  565. box %varx2% %vary% %varx3% %vary2%
  566. box %varx3% %vary% %varx4% %vary2%
  567. box %varx4% %vary% %varx5% %vary2%
  568. box %varx5% %vary% %varx6% %vary2%
  569. box %varx6% %vary% %varx7% %vary2%
  570. box %varx7% %vary% %varx8% %vary2%
  571. box %varx8% %vary% %varx8a% %vary2%
  572. box %varx8a% %vary% %varx8b% %vary2%
  573. pensize .010
  574. line %varx% %vary3% %varx1% %vary3%
  575. line %varx2% %vary3% %varx3% %vary3%
  576. line %varx4% %vary3% %varx5% %vary3%
  577. line %varx6% %vary3% %varx7% %vary3%
  578. line %varx8% %vary3% %varx8a% %vary3%
  579. textspacing 1.2
  580. textquality proportional
  581. textsize .1 .08
  582. textfont 94021
  583. move %varx9% %vary4%
  584. text '50'
  585. move %varx10% %vary4%
  586. text '0'
  587. move %varx11% %vary4%
  588. text '50'
  589. move %varx12% %vary4%
  590. text '100'
  591. move %varx13% %vary4%
  592. text '150 '
  593. move %varx13a% %vary4%
  594. text '200 '
  595. move %varx13b% %vary4%
  596. text '250 MILES'
  597. textsize .125 .1
  598. move %varx14% %vary5%
  599. text 'SCALE 1: '
  600. text [quote %msc2%]
  601. &sv varx15 := 56.794322 * %in1%
  602. &sv mtr1 := .62137119 * %in1%
  603. &sv mtr2 := 10 * %mtr1%
  604. &sv varx16 := %varx% + %varx15%
  605. &sv varx17 := %varx16% + %mtr2%
  606. &sv varx18 := %varx17% + %mtr2%
  607. &sv varx19 := %varx18% + %mtr2%
  608. &sv varx20 := %varx19% + %mtr2%
  609. &sv varx21 := %varx20% + %mtr2%
  610. &sv varx22 := %varx21% + 5 * %mtr2%
  611. &sv varx23 := %varx22% + 5 * %mtr2%
  612. &sv varx24 := %varx23% + 5 * %mtr2%
  613. &sv varx25 := %varx24% + 5 * %mtr2%
  614. &sv varx25a := %varx25% + 5 * %mtr2%
  615. &sv varx26 := %varx16% - .04
  616. &sv varx27 := %varx21% - .02
  617. &sv varx28 := %varx22% - .04
  618. &sv varx29 := %varx23% - .06
  619. &sv varx30 := %varx24% - .06
  620. &sv varx31 := %varx25% - .06
  621. &sv varx31a := %varx25a% - .06
  622. pensize .005
  623. box %varx16% %vary7% %varx17% %vary8%
  624. box %varx17% %vary7% %varx18% %vary8%
  625. box %varx18% %vary7% %varx19% %vary8%
  626. box %varx19% %vary7% %varx20% %vary8%
  627. box %varx20% %vary7% %varx21% %vary8%
  628. box %varx21% %vary7% %varx22% %vary8%
  629. box %varx22% %vary7% %varx23% %vary8%
  630. box %varx23% %vary7% %varx24% %vary8%
  631. box %varx24% %vary7% %varx25% %vary8%
  632. box %varx25% %vary7% %varx25a% %vary8%
  633. pensize .010
  634. line %varx16% %vary9% %varx17% %vary9%
  635. line %varx18% %vary9% %varx19% %vary9%
  636. line %varx20% %vary9% %varx21% %vary9%
  637. line %varx22% %vary9% %varx23% %vary9%
  638. line %varx24% %vary9% %varx25% %vary9%
  639. textsize .1 .08
  640. move %varx26% %vary6%
  641. text '50'
  642. move %varx27% %vary6%
  643. text '0'
  644. move %varx28% %vary6%
  645. text '50'
  646. move %varx29% %vary6%
  647. text '100'
  648. move %varx30% %vary6%
  649. text '150'
  650. move %varx31% %vary6%
  651. text '200'
  652. move %varx31a% %vary6%
  653. text '250 KILOMETERS'
  654. &end
  655. /* Part 7 mapbar.aml 12/08/93 W R Beeman
  656. &if %msc% > 4000000 &then
  657. &do
  658. &sv in2 := 25 * %in1%
  659. pensize .005
  660. &sv varx1 := %varx% + %in2%
  661. &sv varx2 := %varx1% + %in2%
  662. &sv varx3 := %varx2% + %in2%
  663. &sv varx4 := %varx3% + %in2%
  664. &sv varx5 := %varx4% + 4 * %in2%
  665. &sv varx6 := %varx5% + 4 * %in2%
  666. &sv varx7 := %varx6% + 4 * %in2%
  667. &sv varx8 := %varx7% + 4 * %in2%
  668. &sv varx8a := %varx8% + 4 * %in2%
  669. &sv varx9 := %varx% - .06
  670. &sv varx10 := %varx4% - .02
  671. &sv varx11 := %varx5% - .04
  672. &sv varx12 := %varx6% - .06
  673. &sv varx13 := %varx7% - .06
  674. &sv varx13a := %varx8% - .06
  675. &sv varx13b := %varx8a% - .06
  676. &sv varx14a := %varx8a% + %varx%
  677. &sv varx14b := %varx14a% / 2
  678. &sv varx14 := %varx14b% - .4
  679. box %varx% %vary% %varx1% %vary2%
  680. box %varx1% %vary% %varx2% %vary2%
  681. box %varx2% %vary% %varx3% %vary2%
  682. box %varx3% %vary% %varx4% %vary2%
  683. box %varx4% %vary% %varx5% %vary2%
  684. box %varx5% %vary% %varx6% %vary2%
  685. box %varx6% %vary% %varx7% %vary2%
  686. box %varx7% %vary% %varx8% %vary2%
  687. box %varx8% %vary% %varx8a% %vary2%
  688. pensize .010
  689. line %varx% %vary3% %varx1% %vary3%
  690. line %varx2% %vary3% %varx3% %vary3%
  691. line %varx4% %vary3% %varx5% %vary3%
  692. line %varx6% %vary3% %varx7% %vary3%
  693. line %varx8% %vary3% %varx8a% %vary3%
  694. textspacing 1.2
  695. textquality proportional
  696. textsize .1 .08
  697. textfont 94021
  698. move %varx9% %vary4%
  699. text '100'
  700. move %varx10% %vary4%
  701. text '0'
  702. move %varx11% %vary4%
  703. text '100'
  704. move %varx12% %vary4%
  705. text '200'
  706. move %varx13% %vary4%
  707. text '300'
  708. move %varx13a% %vary4%
  709. text '400'
  710. move %varx13b% %vary4%
  711. text '500 MILES'
  712. textsize .125 .1
  713. move %varx14% %vary5%
  714.  
  715. /* insert specific scale here for a  particular map to place commas in scale
  716.  
  717. text 'SCALE 1:7,500,000'
  718. /* text [quote %msc2%]
  719. &sv varx15 := 113.58864 * %in1%
  720. &sv mtr1 := .62137119 * %in1%
  721. &sv mtr2 := 25 * %mtr1%
  722. &sv varx16 := %varx% + %varx15%
  723. &sv varx17 := %varx16% + %mtr2%
  724. &sv varx18 := %varx17% + %mtr2%
  725. &sv varx19 := %varx18% + %mtr2%
  726. &sv varx20 := %varx19% + %mtr2%
  727. &sv varx21 := %varx20% + 4 * %mtr2%
  728. &sv varx22 := %varx21% + 4 * %mtr2%
  729. &sv varx23 := %varx22% + 4 * %mtr2%
  730. &sv varx24 := %varx23% + 4 * %mtr2%
  731. &sv varx25 := %varx24% + 4 * %mtr2%
  732. &sv varx26 := %varx16% - .06
  733. &sv varx27 := %varx20% - .02
  734. &sv varx28 := %varx21% - .06
  735. &sv varx29 := %varx22% - .06
  736. &sv varx30 := %varx23% - .06
  737. &sv varx31 := %varx24% - .06
  738. &sv varx32 := %varx25% - .06
  739. pensize .005
  740. box %varx16% %vary7% %varx17% %vary8%
  741. box %varx17% %vary7% %varx18% %vary8%
  742. box %varx18% %vary7% %varx19% %vary8%
  743. box %varx19% %vary7% %varx20% %vary8%
  744. box %varx20% %vary7% %varx21% %vary8%
  745. box %varx21% %vary7% %varx22% %vary8%
  746. box %varx22% %vary7% %varx23% %vary8%
  747. box %varx23% %vary7% %varx24% %vary8%
  748. box %varx24% %vary7% %varx25% %vary8%
  749. pensize .010
  750. line %varx16% %vary9% %varx17% %vary9%
  751. line %varx18% %vary9% %varx19% %vary9%
  752. line %varx20% %vary9% %varx21% %vary9%
  753. line %varx22% %vary9% %varx23% %vary9%
  754. line %varx24% %vary9% %varx25% %vary9%
  755. textsize .1 .08
  756. move %varx26% %vary6%
  757. text '100'
  758. move %varx27% %vary6%
  759. text '0'
  760. move %varx28% %vary6%
  761. text '100'
  762. move %varx29% %vary6%
  763. text '200'
  764. move %varx30% %vary6%
  765. text '300'
  766. move %varx31% %vary6%
  767. text '400'
  768. move %varx32% %vary6%
  769. text '500 KILOMETERS'
  770. &end
  771. /* Part 8  mapbar.aml 12/08/93 W R Beeman
  772. &if %msc% >= 40000 and %msc% < 80000 &then
  773. &do
  774. &sv in8 := .1 * %in1%
  775. pensize .005
  776. &sv varx1 := %varx% + %in8%
  777. &sv varx2 := %varx1% + %in8%
  778. &sv varx3 := %varx2% + %in8%
  779. &sv varx4 := %varx3% + %in8%
  780. &sv varx5 := %varx4% + %in8%
  781. &sv varx6 := %varx5% + %in8%
  782. &sv varx7 := %varx6% + %in8%
  783. &sv varx8 := %varx7% + %in8%
  784. &sv varx8a := %varx8% + %in8%
  785. &sv varx8b := %varx8a% + %in8%
  786. &sv varx8c := %varx8b% + %in1%
  787. &sv varx8d := %varx8c% + %in1%
  788. &sv varx8e := %varx8d% + %in1%
  789. &sv varx9 := %varx% - .02
  790. &sv varx10 := %varx5% - .04
  791. &sv varx11 := %varx8b% - .02
  792. &sv varx12 := %varx8c% - .02
  793. &sv varx13 := %varx8d% - .02
  794. &sv varx13a := %varx8e% - .02
  795. &sv varx14a := %varx8e% + %varx%
  796. &sv varx14b := %varx14a% / 2
  797. &sv varx14 := %varx14b% - .4
  798. box %varx% %vary% %varx1% %vary2%
  799. box %varx1% %vary% %varx2% %vary2%
  800. box %varx2% %vary% %varx3% %vary2%
  801. box %varx3% %vary% %varx4% %vary2%
  802. box %varx4% %vary% %varx5% %vary2%
  803. box %varx5% %vary% %varx6% %vary2%
  804. box %varx6% %vary% %varx7% %vary2%
  805. box %varx7% %vary% %varx8% %vary2%
  806. box %varx8% %vary% %varx8a% %vary2%
  807. box %varx8a% %vary% %varx8b% %vary2%
  808. box %varx8b% %vary% %varx8c% %vary2%
  809. box %varx8c% %vary% %varx8d% %vary2%
  810. box %varx8d% %vary% %varx8e% %vary2%
  811. pensize .010
  812. line %varx% %vary3% %varx1% %vary3%
  813. line %varx2% %vary3% %varx3% %vary3%
  814. line %varx4% %vary3% %varx5% %vary3%
  815. line %varx6% %vary3% %varx7% %vary3%
  816. line %varx8% %vary3% %varx8a% %vary3%
  817. line %varx8b% %vary3% %varx8c% %vary3%
  818. line %varx8d% %vary3% %varx8e% %vary3%
  819. textspacing 1.2
  820. textquality proportional
  821. textsize .1 .08
  822. textfont 94021
  823. move %varx9% %vary4%
  824. text '1'
  825. move %varx10% %vary4%
  826. text '.5'
  827. move %varx11% %vary4%
  828. text '0'
  829. move %varx12% %vary4%
  830. text '1'
  831. move %varx13% %vary4%
  832. text '2'
  833. move %varx13a% %vary4%
  834. text '3 MILES'
  835. textsize .125 .1
  836. move %varx14% %vary5%
  837. text 'SCALE 1: '
  838. text [quote %msc2%]
  839. &sv varx15 := .75725762 * %in1%
  840. &sv mtr1 := .62137119 * %in1%
  841. &sv mtr2 := .1 * %mtr1%
  842. &sv varx16 := %varx% + %varx15%
  843. &sv varx17 := %varx16% + %mtr2%
  844. &sv varx18 := %varx17% + %mtr2%
  845. &sv varx19 := %varx18% + %mtr2%
  846. &sv varx20 := %varx19% + %mtr2%
  847. &sv varx21 := %varx20% + %mtr2%
  848. &sv varx22 := %varx21% + %mtr2%
  849. &sv varx23 := %varx22% + %mtr2%
  850. &sv varx24 := %varx23% + %mtr2%
  851. &sv varx25 := %varx24% + %mtr2%
  852. &sv varx25a := %varx25% + %mtr2%
  853. &sv varx25b := %varx25a% + %mtr1%
  854. &sv varx25c := %varx25b% + %mtr1%
  855. &sv varx25d := %varx25c% + %mtr1%
  856. &sv varx26 := %varx16% - .02
  857. &sv varx27 := %varx21% - .04
  858. &sv varx28 := %varx25a% - .02
  859. &sv varx29 := %varx25b% - .02
  860. &sv varx30 := %varx25c% - .02
  861. &sv varx31 := %varx25d% - .02
  862. pensize .005
  863. box %varx16% %vary7% %varx17% %vary8%
  864. box %varx17% %vary7% %varx18% %vary8%
  865. box %varx18% %vary7% %varx19% %vary8%
  866. box %varx19% %vary7% %varx20% %vary8%
  867. box %varx20% %vary7% %varx21% %vary8%
  868. box %varx21% %vary7% %varx22% %vary8%
  869. box %varx22% %vary7% %varx23% %vary8%
  870. box %varx23% %vary7% %varx24% %vary8%
  871. box %varx24% %vary7% %varx25% %vary8%
  872. box %varx25% %vary7% %varx25a% %vary8%
  873. box %varx25a% %vary7% %varx25b% %vary8%
  874. box %varx25b% %vary7% %varx25c% %vary8%
  875. box %varx25c% %vary7% %varx25d% %vary8% 
  876. pensize .010
  877. line %varx16% %vary9% %varx17% %vary9%
  878. line %varx18% %vary9% %varx19% %vary9%
  879. line %varx20% %vary9% %varx21% %vary9%
  880. line %varx22% %vary9% %varx23% %vary9%
  881. line %varx24% %vary9% %varx25% %vary9%
  882. line %varx25a% %vary9% %varx25b% %vary9%
  883. line %varx25c% %vary9% %varx25d% %vary9%
  884. textsize .1 .08
  885. move %varx26% %vary6%
  886. text '1'
  887. move %varx27% %vary6%
  888. text '.5'
  889. move %varx28% %vary6%
  890. text '0'
  891. move %varx29% %vary6%
  892. text '1'
  893. move %varx30% %vary6%
  894. text '2'
  895. move %varx31% %vary6%
  896. text '3 KILOMETERS'
  897. &end
  898. &return
  899.